home *** CD-ROM | disk | FTP | other *** search
/ Libris Britannia 4 / science library(b).zip / science library(b) / MEDICAL / 2608A.ZIP / GP.ZIP / FPCSMOK.SRC < prev    next >
Text File  |  1990-11-03  |  5KB  |  284 lines
  1. ;\|
  2. ;FPCSMOK.SRC     Translated from FPCSMOK.EDT by Roger Mathew's EDT2SRC Ver 4.11
  3. ;FPCTARG  12:48:47 PM  22/ 6/90   |
  4.     define(RESULT|A|1||)
  5.     define(DOB1|S|8||)
  6.     define(DOB2|S|8||)
  7.     define(MEM_DOC|N|1||)
  8.     define(NO_CTR|N|4||)
  9.     define(YES_CTR|N|4||)
  10.     define(TOT_CTR|N|4||)
  11.     define(PERCENT|N|5|2|)
  12.     define(TO_DATE|S|8||)
  13.     define(DOC_NAME|A|30||)
  14.     define(TD|S|8||)
  15.     define(S_CTR|N|4||)
  16.     define(F_CTR|N|4||)
  17.     define(H_CTR|N|4||)
  18.     define(O_CTR|N|4||)
  19.     define(OPC|N|5|2|)
  20.     define(HPC|N|5|2|)
  21.     define(SPC|N|5|2|)
  22.     define(FRPC|N|5|2|)
  23.     define(TD|S|8||)
  24.     date(TD|G)
  25.     open(GPSETUP||0|)
  26.     open(PATIENT||0|)
  27.     open(RECALLS||0|)
  28.     open(MEMORY||0|)
  29. START:
  30.     mount(NEWS|S)
  31.     find(B|MEM_NAME||)
  32.     TO_DATE = (MEM_TO_DATE)
  33.     DOB1 = (MEM_DOB1)
  34.     DOB2 = (MEM_DOB2)
  35.     MEM_DOC = (1)
  36.     trap(I|G|EXIT2)
  37.     gosub MOUNT
  38. STARTER:
  39.     find(B|HEADING||)
  40.     DOC_NAME = (RPDOCTOR[MEM_DOC])
  41.     trap(P|S|SHEADING)
  42.     ptof
  43.     DATE.OF.BIRTH = (DOB1)
  44.     find(B|COD.PAT.NAME|EXIT|)
  45. TEST:
  46.     if COD[1] = ("") do
  47.         {
  48.         if COD.D[1] = (0) then goto NEXT
  49.         }
  50.     RECORD.NUMBER = (COD.REF)
  51.     find(M|RECORD.NUMBER|EXIT|)
  52.     pmsg(DATE.OF.BIRTH|1|1|N|N|S|)
  53.     if DOCTOR <> (MEM_DOC) goto NEXT
  54.     if SEX <> ("F") goto NEXT
  55.     if DATE.OF.BIRTH > (DOB2) goto NEXT
  56.     if DATE.OF.BIRTH < (DOB1) goto NEXT
  57.     gosub FINDREC
  58. NEXT:
  59.     find(N|RECALLS|EXIT|)
  60.     goto TEST
  61. FINDREC:
  62. NO_IMDATE:
  63.     if WHERE = ("H") ret
  64.     if WHERE = ("F") ret
  65.     if COD[1] = ("HYS") ret
  66.     if COD[1] = ("REF") ret
  67.     if COD[1] = ("VIR") ret
  68.     if SM_DATE < (TO_DATE-2005) ret
  69.     if SM_DATE > (TO_DATE-2005) do
  70.         {
  71.         pfmt(7|||N|N|)
  72.         TOT_CTR = (TOT_CTR+1)
  73.         clr(RECALLS|B)
  74.         ret
  75.         }
  76.     if COD[1] = ("DNA1") ret
  77.     if COD[1] = ("DNA2") ret
  78.     pfmt(9|||N|N|)
  79.     clr(RECALLS|B)
  80.     ret
  81. NOCOD:
  82.     clr(RECALLS|B)
  83.     goto NEXT
  84. SHEADING:
  85.     pfmt(1|||N|N|)
  86.     pfmt(2|||N|N|)
  87.     pblnk(1)
  88.     pfmt(3|||N|N|)
  89.     pblnk(2)
  90.     pfmt(4|||N|N|)
  91.     pblnk(1)
  92.     pfmt(5|||N|N|)
  93.     pfmt(6|||N|N|)
  94.     ret
  95. MOUNT:
  96.     pchr(P|4)
  97.     mount(NEW1|R|P)
  98.     pset(132|70|66)
  99.     pchr(P|1)
  100.     ret
  101. EXIT:
  102.     pfmt(8|||N|N|)
  103.     trap(P|D)
  104.     ptof
  105.     TOT_CTR = (0)
  106.     MEM_DOC = (MEM_DOC+1)
  107.     if MEM_DOC > (4) goto EXIT2
  108.     goto STARTER
  109. EXIT2:
  110.     run("FPCSMGMS")
  111. \R NEW     
  112. SMEAR TARGET REPORT FOR &                              ON &        FROM DOB &        TO &        PRINTED &
  113. =================================================================================================================================
  114. WOMANS NAME                  ADDRESS               AREA                   D.O.B       LAST SMEAR  WHERE CODE  NEXT DUE
  115. =================================================================================================================================
  116. &                           &                      &                      &          &              &   &      &
  117. &                           &                      &                      &          NO RECORD FOR THIS PATIENT
  118. TOTAL AT RISK                  = &    (NOT INCLUDING HYSTERECTOMIES)
  119. TOTAL UP TO DATE               = &
  120. PERCENTAGE UP TO DATE          = &
  121. DONE AT SURGERY                = &     %&
  122. DONE AT HOSPITAL               = &     %&
  123. DONE AT FAMILY PLANNING CLINIC = &     %&
  124. DONE AT OTHER                  = &     %&
  125.  
  126.  
  127.  
  128.  
  129.  
  130.  
  131.  
  132.  
  133.  
  134.  
  135.  
  136.  
  137.  
  138.  
  139.  
  140.  
  141.  
  142.  
  143.  
  144.  
  145.  
  146.  
  147.  
  148.  
  149.  
  150.  
  151.  
  152.  
  153.  
  154.  
  155.  
  156.  
  157.  
  158.  
  159.  
  160. \
  161. DOC_NAME
  162. TO_DATE
  163. DOB1
  164. DOB2
  165. TD
  166. PATIENT.NAME
  167. ADDRESS1
  168. AREA
  169. DATE.OF.BIRTH
  170. SM_DATE
  171. WHERE
  172. COD[1]
  173. COD.D[1]
  174. PATIENT.NAME
  175. ADDRESS1
  176. AREA
  177. DATE.OF.BIRTH
  178. TOT_CTR
  179. YES_CTR
  180. PERCENT
  181. S_CTR
  182. SPC
  183. H_CTR
  184. HPC
  185. F_CTR
  186. FRPC
  187. O_CTR
  188. OPC
  189. \
  190. \STNEWS    
  191.  
  192.  
  193.  
  194.  
  195.  
  196.  
  197.                             SMEARS
  198.                  FPC TARGET PRINT OUTS 11" PAPER
  199.              ╔═══════════════════════════════════════╗
  200.              ║                                       ║
  201.              ║             FPC TARGET DATE:&         ║
  202.              ║ FROM DATE OF BIRTH - LOWEST:&         ║
  203.              ║  TO DATE OF BIRTH - HIGHEST:&         ║
  204.              ║               DOCTOR NUMBER:&         ║
  205.              ╚═══════════════════════════════════════╝
  206.                                ESC-EXIT
  207.  
  208.  
  209.  
  210.  
  211.  
  212.  
  213.  
  214.  
  215. \
  216. TO_DATE
  217. DOB1
  218. DOB2
  219. MEM_DOC
  220. \
  221. \R NEW1    
  222. &                                                    NORTH YORKSHIRE                             Date:&
  223.                                                 FAMILY PRACTITIONER COMMITTEE
  224.                                       LIST OF WOMEN FOR GP CYTOLOGY TARGETS AS AT : &
  225.                               Women Who Are Eligible And Have Been Adequately Smeared  under GMS
  226. Surname        Forename             Nhs Number      Date Of Birth   Rcl Date     Test Date Result  Under GMS Y/N
  227. ===========================         ==========      =============   ========     ========  ======  =============
  228. &                                   &               &               &            &         &       Y
  229. Total:&
  230. &                            Exception check it!
  231.  
  232.  
  233.  
  234.  
  235.  
  236.  
  237.  
  238.  
  239.  
  240.  
  241.  
  242.  
  243.  
  244.  
  245.  
  246.  
  247.  
  248.  
  249.  
  250.  
  251.  
  252.  
  253.  
  254.  
  255.  
  256.  
  257.  
  258.  
  259.  
  260.  
  261.  
  262.  
  263.  
  264.  
  265.  
  266.  
  267.  
  268.  
  269.  
  270. \
  271. DOC_NAME
  272. TD
  273. TO_DATE
  274. PATIENT.NAME
  275. NHS.NUM
  276. DATE.OF.BIRTH
  277. COD.D[1]
  278. SM_DATE
  279. COD[1]
  280. TOT_CTR
  281. PATIENT.NAME
  282. \
  283.  
  284.